El software de análisis de estructuras RFEM 6 es la base de un sistema de software modular. El programa principal RFEM 6 se usa para definir estructuras, materiales y cargas de sistemas estructurales planos y espaciales compuestos por placas, muros, láminas y barras. El programa también le permite crear estructuras mixtas, así como modelar elementos sólidos y de contacto.
RSTAB 9 es un software potente de análisis y dimensionamiento en 3D de estructuras de vigas, pórticos o cerchas, que refleja el estado de la técnica actual y ayuda a los ingenieros y consultores de estructuras a cumplir con los requisitos de la ingeniería de estructuras moderna.
¿Está a menudo ocupado con el cálculo de secciones durante demasiado tiempo? Dlubal Software y el programa independiente RSECTION facilitan su trabajo al determinar y realizar un análisis de tensiones para varias secciones.
¿Siempre sabe de dónde viene el viento? ¡Desde la dirección de la innovación, por supuesto! Con RWIND 2 a su lado tiene un programa que utiliza un túnel de viento digital para la simulación numérica de los flujos de viento. El programa simula estos flujos alrededor de cualquier geometría de construcción y determina las cargas de viento en las superficies.
¿Está buscando una vista general de las zonas de carga de nieve, zonas de viento y zonas de sísmicas? Entonces está en el lugar correcto. Utilice la herramienta <i>Geo-Zone</i> para la determinación rápida de las cargas de nieve, velocidades de viento y zonas sísmicas según el Eurocódigo, CTE, ASCE 7-16 y otras normas internacionales.
¿Le gustaría probar la potencia de los programas de Dlubal Software? ¡Es su oportunidad! Con la versión completa gratuita de 90 días, puede probar todos nuestros programas por completo.
Las deformaciones de las barras se pueden leer utilizando la función "GetMemberDeformations ()", por ejemplo. Esta función espera un número, el tipo de método de conteo para barras (número de barra/número en la lista) y qué sistema de coordenadas se debe usar. Puede seleccionar si se usa el sistema de ejes local, el sistema de ejes principal o el sistema de coordenadas global:
Sub test_results_member_axis ()Dim iApp As RFEM5.ApplicationEstablecer iApp = GetObject (, "RFEM5.Application")iApp.LockLicenseDim iMod como RFEM5.IModel3Set iMod = iApp.GetActiveModelOn Error GoTo e' obtener interfaz para el cálculoDim iCalc As RFEM5.ICalculation2Establecer iCalc = iMod.GetCalculation' obtener interfaz para resultadosDim iRes como RFEM5.IResults2Establecer iRes = iCalc.GetResultsInFeNodes (LoadCaseType, 1)' obtener deformaciones en el sistema de coordenadas localDim memDefs_L () como RFEM5.MemberDeformationsmemDefs_L = iRes.GetMemberDeformations (1, AtNo, LocalMemberAxes)' obtener deformaciones en el sistema de coordenadas globalDim memDefs_G () como RFEM5.MemberDeformationsmemDefs_G = iRes.GetMemberDeformations (1, AtNo, GlobalAxes)' obtener deformaciones en el sistema de coordenadas principalDim memDefs_P () como RFEM5.MemberDeformationsmemDefs_P = iRes.GetMemberDeformations (1, AtNo, LocalPrincipalAxes)e:If Err.Number <> 0 Then MsgBox Err.description, vbCritical, Err.SourceiMod.GetApplication.UnlockLicenseEstablecer iMod = NadaEnd Sub
El programa pequeño lee las deformaciones locales (memDefs_L) en los ejes de la barra y los ejes principales (memDefs_P) y las deformaciones globales en los ejes de la barra (memDefs_G).
Al igual que todos los demás resultados, la resultante de una sección se puede leer a través de IModel3 → ICalculation2 → IResults2. La interfaz con los resultados la proporciona la función GetResultant, que luego devuelve la estructura ResultantForce al especificar el número de sección y el tipo de distribución de resultados. Esta estructura incluye, entre otras cosas, las fuerzas y momentos como vectores:
Las tensiones de una superficie se pueden mostrar a través de la interfaz COM. Primero, necesita la interfaz para el modelo (IModel) y luego la interfaz para el cálculo (ICalculation2). Usando esta interfaz, puede obtener la interfaz para los resultados (IResults2):
Subtension_superficies_ejemplo ()Dim iApp As RFEM5.ApplicationDim iModel As RFEM5.modelSet iModel = GetObject(, "RFEM5.Model")En caso de error, vaya a ESi no es iModel entonces' obtener la interfaz del modeloEstablecer iApp = iModel.GetApplication iApp.LockLicense ' obtener interfaz del cálculo Dim iCalc As RFEM5.ICalculation2 Set iCalc = iModel.GetCalculation ' obtener la interfaz de los resultados del caso de carga 1Dim iRes como RFEM5.IResults2Establecer iRes = iCalc.GetResultsInFeNodes (LoadCaseType, 1) ' obtiene tensiones equivalentesDim str_equ () como RFEM5.SurfaceEquivalentStressesstr_equ = iRes.GetSurfaceEquivalentStresses (1, AtNo, VonMisesHypothesis) End IfE:If Err.Number <> 0 ThenMsgBox Err.Number & "" & Err.descriptionEnd IfSi iApp no es nada, entoncesiApp.UnlockLicenseEnd If
La función GetSurfaceEquivalentStresses requiere la especificación de la hipótesis de cálculo. En este caso, se muestran los resultados de la tensión de von Mises. Tenga en cuenta que la interfaz COM usa unidades SI, por lo que la tensión se transfiere en N/m².
Subprueba_sección ()' get interface from the opened model and lock the licence/program Dim iModel As RFEM5.IModel3 Set iModel = GetObject(, "RFEM5.Model") iModel.GetApplication.LockLicense En caso de error, vaya a E Dim iSecs como RFEM5.ISectionsEstablecer iSecs = iModel.GetSections ()
' primero elimina todas las seccionesiSecs.PrepareModification iSecs.DeleteObjects ("Todos")iSecs.FinishModification ' establecer sección en sólidoDim sec As RFEM5.Sectionsec.EdgePointA.X = 2sec.EdgePointA.Y = 5sec.EdgePointA.Z = 0sec.EdgePointB.X = 2sec.EdgePointB.Y = 8sec.EdgePointB.Z = 0 seg. = 1sec.Name = "sección sólida"sec.Plane = GlobalPlaneInPositiveXsec.ShowValuesInIsolines = Falsesec.Type = SectionOnSolidSectionLinesec.ObjectList = "1" iSecs.PrepareModificationiSecs.SetSection seciSecs.FinishModification
' establecer sección en la superficiesec.EdgePointA.X = 2sec.EdgePointA.Y = 0sec.EdgePointA.Z = 0sec.EdgePointB.X = 2sec.EdgePointB.Y = 3sec.EdgePointB.Z = 0 seg. = 2sec.Name = "sección de superficie"sec.Plane = GlobalPlaneInPositiveX sec.ShowValuesInIsolines = Truesec.Type = SectionViaSurfacePlanesec.ObjectList = "1" sec.Vector.X = 0sec.Vector.Y = 0sec.Vector.Z = 1 iSecs.PrepareModificationiSecs.SetSection seciSecs.FinishModification
' obtener resultados Dim iCalc As ICalculation2 Set iCalc = iModel.GetCalculation Dim iRes como IResults2Establecer iRes = iCalc.GetResultsInFeNodes (LoadCaseType, 1) Dim secRes () como RFEM5.SectionResultsecRes = iRes.GetResultsInSection (2, AtNo,ShearForceVy, ContinuousDistributionWithinObjects, False)